/* GUI CONVERTED from rcabsssh.p (converter v1.75) Tue Apr 10 12:03:17 2001 */
/* rcabsssh.p - PROGRAM TO POST THE SHIP-ID FOR SEQUENCE SCHEDULES            */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.6 $                                                         */
/*V8:ConvertMode=Report                                                       */
/* REVISION: 9.1     CREATED:       05/24/99    BY: *N003* Patrick Rowan      */
/* REVISION: 9.1    MODIFIED:       08/12/00    BY: *N0KP* Mark Brown         */
/* $Revision: 1.6 $    BY: Jean Miller    DATE: 03/22/01 ECO: *P008*          */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/
/*!
 ----------------------------------------------------------------------------
 DESCRIPTION: This program is called to update each abss_det record and post
              the shipper-ID into the record.

 Notes:
 ============================================================================
 !*/
/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */
/*         THIS PROGRAM IS A BOLT-ON TO STANDARD PRODUCT MFG/PRO.           */
/* ANY CHANGES TO THIS PROGRAM MUST BE PLACED ON A SEPARATE ECO THAN        */
/* STANDARD PRODUCT CHANGES.  FAILURE TO DO THIS CAUSES THE BOLT-ON CODE TO */
/* BE COMBINED WITH STANDARD PRODUCT AND RESULTS IN PATCH DELIVERY FAILURES.*/
/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

{mfdeclre.i}

define input parameter in_shipfrom like abs_shipfrom no-undo.
define input parameter in_abs_id like abs_id no-undo.
define input parameter in_new_abs_id like abs_id no-undo.
define input parameter in_new_ship_id like abs_id no-undo.

/* CHANGE ALL CHILD RECORDS */
for each abss_det where
         abss_abs_id    = in_abs_id    and
         abss_shipfrom  = in_shipfrom
exclusive-lock:

   assign
      abss_abs_id     = in_new_abs_id
      abss_ship_id    = in_new_ship_id
      abss_mod_userid = global_userid
      abss_mod_date   = today
      abss_mod_pgm    = program-name(1).

end. /* FOR EACH abss_det */
